home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / gsdbloo.exe / GS_ERROR.PAS < prev    next >
Pascal/Delphi Source File  |  1992-02-27  |  2KB  |  86 lines
  1. unit GS_Error;
  2. {-----------------------------------------------------------------------------
  3.                              Error Handler
  4.  
  5.        GS_Error Copyright (c)  Richard F. Griffin
  6.  
  7.         9 April 1990
  8.  
  9.        102 Molded Stone Pl
  10.        Warner Robins, GA  31088
  11.  
  12.        -------------------------------------------------------------
  13.        This unit handles error processing by displaying error messages
  14.        on the screen.
  15.  
  16.    Changes:
  17.  
  18. ------------------------------------------------------------------------------}
  19.  
  20. interface
  21. {$D-}
  22.  
  23. uses
  24.    Crt, Dos, GS_KeyI, GS_Winfc;
  25.  
  26. type
  27.    ErrRec = Record
  28.                ErrNum : integer;
  29.                ErrStr : String[60];
  30.             End;
  31.  
  32. const
  33.    ErrCnt = 9;
  34.    ErrLst : array[1..ErrCnt] of ErrRec = (
  35.       (ErrNum : 501;
  36.        ErrStr : 'Error in GS_DB_IX numeric or date key field'),
  37.       (ErrNum : 601;
  38.        ErrStr : 'Error in GS_dBase formula assignment'),
  39.       (ErrNum : 602;
  40.        ErrStr : 'Error in GS_dBase FieldGet name assignment'),
  41.       (ErrNum : 603;
  42.        ErrStr : 'Error in GS_dBase FieldGetN number assignment'),
  43.       (ErrNum : 604;
  44.        ErrStr : 'Error in GS_dBase FieldPut name assignment'),
  45.       (ErrNum : 605;
  46.        ErrStr : 'Error in GS_dBase FieldPutN number assignment'),
  47.       (ErrNum : 710;
  48.        ErrStr : 'Error in pointer for editor line'),
  49.       (ErrNum : 901;
  50.        ErrStr : 'Error in GS_dB_Tb index file assignment'),
  51.       (ErrNum : 902;
  52.        ErrStr : 'Error in GS_dB_Tb field name assignment')
  53.             );
  54.  
  55. var
  56.    ErrorKey : char;
  57.  
  58.  
  59. PROCEDURE ShowError(num : integer; st : string);
  60.  
  61. implementation
  62. var
  63.    ErrorWin : GS_Wind_Objt;
  64.    ch       : Char;
  65.  
  66. Procedure ShowError(Num : integer; st : string);
  67. var
  68.    i : integer;
  69. begin
  70.    write;
  71.    ErrorWin.SetWin;
  72.    writeln('Error ',num);
  73.    for i := 1 to ErrCnt do
  74.    begin
  75.       if ErrLst[i].ErrNum = Num then
  76.          writeln(ErrLst[i].ErrStr);
  77.    end;
  78.    writeln(st);
  79.    ErrorKey := GS_KeyI_GetKey;
  80.    ErrorWin.RelWin;
  81. end;
  82.  
  83. begin
  84.    ErrorWin.InitWin(8,10,73,16,Yellow,Black,Yellow,Black,Yellow,
  85.                     True,'[ ERROR ]',True);
  86. end.